!
!   QUICK -  Sort array.
!
     
!-----------------------------------------------------------------------------

       Subroutine Quick(array, n, index )

       use MQuick

       Integer :: i, n, index(n)
       Real :: array(n)

! Input: 
!      array ... data
!
! Output:
!      n     ... No. of data
!      index ... indexes

! initialize indexes
       do i = 1, n
          index(i) = i
       enddo

       Call QuickSorti(array(1:n),index)

       End

